home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.01 Jan 87 / pascal source / Editor Globals next >
Encoding:
Text File  |  1986-11-21  |  2.3 KB  |  120 lines  |  [TEXT/PJMM]
  1. UNIT EditorGlobals;
  2.  
  3. INTERFACE
  4.  
  5. { Global Constants }
  6.  
  7.     CONST
  8.     {memory management stuff}
  9.         MaxLines = 65535;
  10.     {quickdraw stuff}
  11.         sizelimit = 128;
  12.     {window constants}
  13.         maxWindows = 4;
  14.         ZoomBox = 8;    {window type}
  15.         MinWidth = 80;
  16.         MinHeight = 80;
  17.         MenuBarHeight = 20;
  18.     {dialog stuff}
  19.         otherItem = 3;
  20.     { menu res id's}
  21.         AppleMenu = 256;
  22.         FileMenu = 257;
  23.         EditMenu = 258;
  24.         SearchMenu = 259;
  25.         FormatMenu = 260;
  26.         FontMenu = 261;
  27.         SizeMenu = 262;
  28.         StyleMenu = 263;
  29.         ModeMenu = 264;
  30.         TransferMenu = 265;
  31.         LastMenu = TransferMenu;
  32.  
  33.     {menu items}
  34.         aAbout = 1;
  35.  
  36.         fNew = 1;
  37.         fOpen = 2;
  38.         fClose = 3;
  39.         fSave = 4;
  40.         fSaveAs = 5;
  41.         fPageSet = 6;
  42.         fPrint = 7;
  43.         fQuit = 9;
  44.  
  45.         eUndo = 1;
  46.         eCut = 3;
  47.         eCopy = 4;
  48.         ePaste = 5;
  49.         eClear = 6;
  50.         eSelAll = 8;
  51.         eClipboard = 9;
  52.  
  53.         sPlain = 1;
  54.         sBold = 2;
  55.         sItalic = 3;
  56.         sUnderline = 4;
  57.         sOutline = 5;
  58.         sShadow = 6;
  59.         sCondense = 7;
  60.         sExtend = 8;
  61.         sLeft = 10;
  62.         sCenter = 11;
  63.         sRight = 12;
  64.         Style2Items = 4;
  65.  
  66.         mOr = 1;
  67.         mXor = 2;
  68.         mBic = 3;
  69.  
  70. {controls stuff}
  71.         active = 0;
  72.         inactive = 255;
  73.         sbarwidth = 16;
  74.  
  75. { Global Variables }
  76.  
  77.     VAR
  78.  
  79.     {my misc stuff}
  80.         Finished : boolean;
  81.         CR : char;
  82.         BS : char;
  83.     {menu stuff}
  84.         myMenus : ARRAY[AppleMenu..LastMenu] OF MenuHandle;
  85.         LastJust : integer; {current text rec}
  86.         LastFont : integer;    {current port}
  87.         LastStyle : Style;    {current port}
  88.         LastSize : integer;    {current port}
  89.         LastMode : integer;    {current port}
  90.         LastmFont : integer;    {menu item}
  91.         LastmStyle : integer;    {menu item}
  92.         LastmSize : integer;    {menu item}
  93.         LastmMode : integer;    {menu item}
  94.         LastmJust : integer; {menu item}
  95.     {window stuff}
  96.         ClipBdWindow : Windowptr;
  97.         ClipBdStorage : WindowRecord;
  98.         ClipBdRect : Rect;
  99.         ClipBdText : TEHandle;
  100.         myWindows : ARRAY[1..MaxWindows] OF Windowptr;
  101.         currentWindow : integer;    {index to my currently active window}
  102.         GoodbyList : ARRAY[1..MaxWindows] OF Integer;  {window status}
  103.         DragArea : Rect;
  104.         GrowArea : Rect;
  105.         Screen : Rect;
  106.         DefaultWindow : Rect;
  107.         ZoomRect : Rect;
  108.     {scrollers stuff}
  109.         myVControls : ARRAY[1..MaxWindows] OF ControlHandle;
  110.         myHControls : ARRAY[1..MaxWindows] OF ControlHandle;
  111.         HCRect, VCRect, GrowRect : Rect;
  112.     {text edit stuff}
  113.         myText : ARRAY[1..MaxWindows] OF TEHandle;
  114.         DestRect : Rect;
  115.         ViewRect : Rect;
  116.         dummy : LongInt;    {TEScrap var}
  117.  
  118. IMPLEMENTATION
  119.  
  120. END.